#!/usr/bin/perl

# 从命令行参数获取逗号分隔的十进制数序列
my $input = $ARGV[0];
my @decimals = split(/,/, $input);

# 使用基本语法将十进制数转换为二进制数
my @binaries;
foreach my $decimal (@decimals) {
    my $binary = sprintf("%b", $decimal);
    $binaries[$#binaries+1] = $binary;
}

# 使用join函数连接二进制数序列
my $output = join(",", @binaries);

# 打印连接后的字符串
print "$output\n";